 Public Class AccessDto 
 Inherits KetNoiDto
 #Region "Attributes"
 #End Region
 #Region "Property"
 #End Region 
 #Region "Contructor"
 Public Sub New() 
 _DataBase = ""
 _pass=""
 MsSql = Class_KieuDL.Access 
 End Sub 
 Public Sub New(ByVal duongdan As String)
 MsSql = Class_KieuDL.Access 
 _DataBase = duongdan 
 ChuoiKetNoi = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & duongdan
 End Sub
 Public Sub New(ByVal duongdan As String,ByVal pass1 As String)
 MsSql = Class_KieuDL.Access 
 _DataBase = duongdan
 _pass = pass1 
 ChuoiKetNoi = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & duongdan & ";Jet OLEDB:Database Password=" & pass1
 End Sub
 Public Sub ChuoiKetNoiAccess()
 ChuoiKetNoi =" Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & _DataBase & ";Jet OLEDB:Database Password=" & _pass
 End Sub
 #End Region
  Public Sub Chuoiketnoi1()
 ChuoiKetNoi = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& _DataBase & ";Jet OLEDB:Database Password=" & _pass
 End Sub
 End Class
